plot(y ~ x)

plot(x,f(x),type="p")

2# qoiqpwqr
谢谢，这个命令我知道，但是我实际操作时出了问题，
m是变量，定义了一个关于m的函数
emp.TailCopula = function(samp,x,y,m){
n = nrow(samp)
FN1= data[,1]
FN2= data[,2]
T = sum((rank(FN1,ties.method="max")/n>1-m/n*x)&(rank(FN2,ties.method="max")/n>1-m/n*y))/m
return(T)
}
我想做m和T的图像，但是运行后显示的是
警告信息：
1: In rank(FN1, ties.method = "max")/n > 1 - m/n * x :
  长的对象长度不是短的对象长度的整倍数
2: In rank(FN2, ties.method = "max")/n > 1 - m/n * y :
  长的对象长度不是短的对象长度的整倍数

请问我什么地方弄错了？如果可以的话，可否帮我写下源程序，万分感谢

3# 楚韵荆风
谢谢，这个命令我知道，但是我实际操作时出了问题，
m是变量，定义了一个关于m的函数
emp.TailCopula = function(samp,x,y,m){
n = nrow(samp)
FN1= data[,1]
FN2= data[,2]
T = sum((rank(FN1,ties.method="max")/n>1-m/n*x)&(rank(FN2,ties.method="max")/n>1-m/n*y))/m
return(T)
}
我想做m和这个函数的图像，但是运行后显示的是
警告信息：
1: In rank(FN1, ties.method = "max")/n > 1 - m/n * x :
  长的对象长度不是短的对象长度的整倍数
2: In rank(FN2, ties.method = "max")/n > 1 - m/n * y :
  长的对象长度不是短的对象长度的整倍数
请问我什么地方弄错了？如果可以的话，可否帮我写下源程序，万分感谢

你的x，y，m等都是多少？