MCAsim

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

The experiments belows involve simulation of occluding different part of the anterior circulation

#dima.inter==1
cow<- filter(mcaTreesRatioLong, CoW == "typical", diam.inter==0.001, diam.intra==0.001)

gg <- ggplot(cow, aes(flowratiostroke, ArteryName,color = ArteryName)) +
      geom_point(aes(size=flowratiostroke,frame=Experiment)) +xlim(-5,5)+
    scale_x_continuous()

## Warning: Ignoring unknown aesthetics: frame

## Scale for 'x' is already present. Adding another scale for 'x', which
## will replace the existing scale.

    ggplotly(gg)

Acom missing

#dima.inter==1
cowAcom<- filter(mcaTreesRatioLong, CoW == "Acom", diam.inter==0.001, diam.intra==0.001)

gg <- ggplot(cowAcom, aes(flowratiostroke, ArteryName,color = ArteryName)) +
      geom_point(aes(size=flowratiostroke,frame=Experiment)) +xlim(-5,5)+
    scale_x_continuous()

## Warning: Ignoring unknown aesthetics: frame

## Scale for 'x' is already present. Adding another scale for 'x', which
## will replace the existing scale.

    ggplotly(gg)

# A1 missing

#dima.inter==1
cowA1<- filter(mcaTreesRatioLong, CoW == "LeftA1", diam.inter==0.001, diam.intra==0.001)

gg <- ggplot(cowA1, aes(flowratiostroke, ArteryName,color = ArteryName)) +
      geom_point(aes(size=flowratiostroke,frame=Experiment)) +xlim(-5,5)+
    scale_x_continuous()

## Warning: Ignoring unknown aesthetics: frame

## Scale for 'x' is already present. Adding another scale for 'x', which
## will replace the existing scale.

    ggplotly(gg)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.