Displaying 1 result from an estimated 1 matches for "wind_speed_wide_dataframe".
2011 Apr 23
0
MASS fitdistr call in plyr help!
...= scale.
Currently my code looks like:
fit_wind_speed<-function(x){
x<-replace(x,x<=0,0.0001)
temp<-fitdistr(na.exclude(x[,1]),"weibull")
l<-length(names(x))
for(i in 1:l){
temp[i]<-(fitdistr(na.exclude(x[,i]),"weibull"))
}
temp
}
wind_speed_wide_dataframe<-function(x){
mini<-min(x$site)
maxi<-max(x$site)
ws.plot<-as.matrix(subset(x,site==mini,select=(wind_speed)))
row.names(ws.plot)<-NULL
for(i in (mini+1):maxi){
temp<-as.matrix(subset(x,site==i,select=(wind_speed)))
row.names(temp)<-NULL
ws...