Hello all, I used the following script to generate a plot, but when I
try to place axes, the axes start at the end of my plot and continue off
the plot; the attached image shows what happens when I try to generate
axes.
library(fields)
as.matrix(read.table("Matrix.txt", sep="\t"))->x
#the matrix is a square matrix measuring 104x104; it was too large to attach
#on left: labels are:
Side<-as.character(x[1,2:ncol(x)])
length(Side)->nS
#on bottom, labels are:
Bot<-as.character(x[2:nrow(x),1])
x[-1,-1]->x
25->x[x>=25]
HeatBrk<-seq(5,25,4)
MyCol= gray((4:0)/4)
image.plot(x, col=MyCol, breaks=HeatBrk, legend.shrink=0.3, axes = FALSE)
axis(2,las=2, at = 1:nS, label = Side, tick = TRUE)
axis(1,las=2, at = 1:nS, label = Bot, tick = TRUE)
Any help would be much appreciated.
Thanks,
Sumukh
Hello all, I've got a data set with two variables. I want to learn which copula is suitable for my data set. I tried gofCopula function.I used this code:gofCopula(gumbelCopula(1.5, d=2),x, method = "itau")x is my data set, and "1.5" is my patameter which I found by converting Kendall tau to gumbel copula. Is this the correct code?Thank you,Deniz______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. [[alternative HTML version deleted]]
On 08/25/2011 06:31 PM, Sumukh Sathnur wrote:> Hello all, I used the following script to generate a plot, but when I > try to place axes, the axes start at the end of my plot and continue off > the plot; the attached image shows what happens when I try to generate > axes. > > library(fields) > as.matrix(read.table("Matrix.txt", sep="\t"))->x > > #the matrix is a square matrix measuring 104x104; it was too large to > attach > > #on left: labels are: > Side<-as.character(x[1,2:ncol(x)]) > length(Side)->nS > > #on bottom, labels are: > Bot<-as.character(x[2:nrow(x),1]) > x[-1,-1]->x > 25->x[x>=25] > HeatBrk<-seq(5,25,4) > MyCol= gray((4:0)/4) > image.plot(x, col=MyCol, breaks=HeatBrk, legend.shrink=0.3, axes = FALSE) > > axis(2,las=2, at = 1:nS, label = Side, tick = TRUE) > axis(1,las=2, at = 1:nS, label = Bot, tick = TRUE) >Hi Sumukh, This is just one of those bets on 00, but would the values in your mystery matrix happen to lie between 0 and 1? Jim