-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path.Rhistory
77 lines (77 loc) · 2.38 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
library("DelayDiffForR")
q()
library("DelayDiffForR")
q()
q()
library("DelayDiffForR")
source("~/mystuff/Course/Rcpp/HowToCallTheC++FunctionFitLWInR.R")
system(("less ~/mystuff/Course/Rcpp/HowToCallTheC++FunctionFitLWInR.R")
system(("less ~/mystuff/Course/Rcpp/HowToCallTheC++FunctionFitLWInR.R")
system("less ~/mystuff/Course/Rcpp/HowToCallTheC++FunctionFitLWInR.R")
my.data <- read.table("lw.dat")
# A wrapper function
FitLW <- function(x,y,z){
.Call('FitLW',x,y,z)
}
FitLW(my.data$V1, my.data$V2, my.data$V3)
my.data <- read.table("~/mystuff/Course/Rcpp/lw.dat")
FitLW(my.data$V1, my.data$V2, my.data$V3)
q()
library("DelayDiffForR")
FitLW
rm(list = ls())
library("DelayDiffForR")
q()
library("DelayDiffForR")
q()
library("DelayDiffForR")
FitLW
q()
rm(list = ls())
objects()
library("DelayDiffForR")
objects()
my.data <- read.table("lw.dat")
my.data <- read.table("~/mystuff/Course/Rcpp/lw.dat")
FitLW(my.data$V1, my.data$V2, my.data$V3)
q()
data(lw)
library("DelayDiffForR")
data(lw)
FitLW(lw[,1], lw[,2], lw[,3])
head(lw)
q()
library("DelayDiffForR")
example("FitLW")
?FitLW
data(lw)
FitLW(lw[,1], lw[,2], lw[,3])
q()
library("DelayDiffForR")
example("FitLW")
?FitLW
library("DelayDiffForR")
example("FitLW")
q()
length<-runif(1000,20,80);a=0.00075; b=3 ;weight<-a*length^b;lengthbin<-floor(length);data<-cbind(names(tapply(weight,lengthbin+0.5,mean)),tapply(weight,lengthbin+0.5,mean),sqrt(tapply(weight,lengthbin+0.5,var)))
head(data)
length<-runif(1000,20,80);a=0.00075; b=3 ;weight<-a*length^b;lengthbin<-floor(length);data<-cbind(names(tapply(weight,lengthbin+0.5,mean)),tapply(weight,lengthbin+0.5,mean),sqrt(tapply(weight,lengthbin+0.5,var))); data <- as.numeric(data)
head(data)
length<-runif(1000,20,80);a=0.00075; b=3 ;weight<-a*length^b;lengthbin<-floor(length);data<-cbind(as.numeric(names(tapply(weight,lengthbin+0.5,mean))),tapply(weight,lengthbin+0.5,mean),sqrt(tapply(weight,lengthbin+0.5,var)));
head(data)
library("DelayDiffForR")
FitLW(data[,1], data[,2], data[,3])
length<-runif(1000,20,80);a=0.75; b=2 ;weight<-a*length^b;lengthbin<-floor(length);data<-cbind(as.numeric(names(tapply(weight,lengthbin+0.5,mean))),tapply(weight,lengthbin+0.5,mean),sqrt(tapply(weight,lengthbin+0.5,var)));
FitLW(data[,1], data[,2], data[,3])
library("DelayDiffForR")
example(FitLW)
data(lw)
?FitLW
library("DelayDiffForR")
data(lw)
head(lw)
library("DelayDiffForR")
example(FitLW)
q()
library(DelayDiffForR); example(FitLW)
q()