[R] 3D Black-Scholes Graph Help!

Hello all! I would like to create a 3d plot, with the option price explained by the underlying price and time. Unfortunately, I can't quite get it to work. I would very much appreciate your help! Thanks, Anna # Black-Scholes Option Graph library(lattice) blackscholes <- function(s, k,

Re: [R] Deleting Rows based on Factor and Time Period

alldat[order(alldat$year, alldat$months), ] alldat[!duplicated(paste(alldat$year, alldat$months, alldat$myeq)), ] On Wed, Sep 14, 2011 at 10:21 AM, Anna Dunietz wrote: > Mikkel - thank you so much! That's a great start! I could change my demands > a bit and pick out the first stock each m

Re: [R] Deleting Rows based on Factor and Time Period

illance") > library(surveillance) > alldat$year <- isoWeekYear(alldat$mydate)$ISOYear > alldat$week <- isoWeekYear(alldat$mydate)$ISOWeek > alldat <- alldat[order(alldat$year, alldat$week), ] > alldat[!duplicated(paste(alldat$year, alldat$week, alldat$myeq)), ] > >

[R] Deleting Rows based on Factor and Time Period

Hi All! I have been messing around with this problem for about a week but to no avail! The following data has been cut down in order to make my question reproducible. The alldat data frame includes 2 columns: 1 date column and 1 factor column (equity names)). mydate<-as.Date(c("2001-07-02","2001

[R] If NA Problem!

Hi All! Please find code and the respective lists below. My problem: I specify the case that lilwin[[p]] is not an NA and want the code found in iwish to be returned ONLY for that case. Why do I get a list of length 2 (and why is NULL the first element)? I understand that the code below is quite

[R] Testing Specific Hypothesis

Hi All! I am interested in testing whether the means for the data I am investigating are equal to a specific value - let's say 0.01. I have already run a one-way ANOVA and know that the differences in the means are not significant, so now I want to know what values the means take on. "otestme" i

[R] Loop trouble with Excel Serial Numbers!

Hi All! I'm trying to convert serial numbers in Excel to dates in R. For each single "thedate" entry, I get a correct answer. But if I try using the for loop, I get bizarre numbers in "mynewdata". thedate<-as.matrix(40548:40759,ncol=1) exdate<-function(){ mynewdate<-NULL for(i in 1:nrow(th