Displaying 4 results from an estimated 4 matches for "strontium".
2009 Aug 05
0
Strontium Nitrate
Hello,
my name is Toby, and i live in Sydney Australia. i would like to buy a 25Kg bag of strontium nitrate and have it delivered to an address in sydney. i understand that long distance postage can sometimes be very costly, so can you please give a a quote for the 25Kg bag, plus the postage cost to my address in sydney.
thankyou for your time
___________________________________________________...
2011 Oct 09
2
pdIdent in smoothing regression model
...th mixed model software" in
Journal of Statistical Software, by Ngo and Wand. I tried to run
their first example in Section 2.1 using R but I had some problems.
Here is the code:
library(nlme)
fossil <- read.table("fossil.dat",header=T)
x <- fossil$age
y <- 100000*fossil$strontium.ratio
knots <- seq(94,121,length=25)
n <- length(x)
X <- cbind(rep(1,n),x)
Z <- outer(x,knots,"-")
Z <- Z*(Z>0)
fit <- lme(y~-1+X,random=pdIdent(~-1+Z))
When I ran the code
fit <- lme(y~-1+X,random=pdIdent(~-1+Z))
I got an error message:
Error in getGroups.data...
2005 Nov 03
1
Specify Z matrix with lmer function
...e/ in 2004 using the
lme4 and Matrix packages. The code and data sets used can be found at
http://www.jstatsoft.org/v09/i01/.
There original code did not work for me without slight modifications
here is the code that I used with my modifications noted.
x <- fossil$age
y <- 100000*fossil$strontium.ratio
knots <- seq(94,121,length=25)
n <- length(x)
X <- cbind(rep(1,n),x)
Z <- outer(x,knots,"-")
Z <- Z*(Z>0)
# I had to create the groupedData object with one group to fit the model
I wanted
grp <- rep(1,n)
grp.dat<-groupedData(y~Z|grp)
fit <- lme(y~-1+X,ran...
2010 Jun 15
0
lme, spline (revised question)
...uestion about the problem I have.
Take a look at the article
http://www.jstatsoft.org/v09/i01
and download the attached code.
try to run one of the codes for example section 2.1 in R
here is the code
fossil <- read.table("fossil.dat",header=T)
x <- fossil$age
y <- 100000*fossil$strontium.ratio
knots <- seq(94,121,length=25)
n <- length(x)
X <- cbind(rep(1,n),x)
Z <- outer(x,knots,"-")
Z <- Z*(Z>0)
fit <- lme(y~-1+X,random=pdIdent(~-1+Z))
there is an error which prevents running the lme function. The error is something like this
>> Error in getG...