Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Björn Brembs
DTSevaluations
Commits
33d8f084
Unverified
Commit
33d8f084
authored
Nov 27, 2018
by
Maximilian von der Linde
Committed by
GitHub
Nov 27, 2018
Browse files
Merge branch 'InfiniteWhite-patch-3' into InfiniteWhite-patch-3.1
parents
065efcd1
a80f8ce1
Changes
1
Show whitespace changes
Inline
Side-by-side
HTML_DTS_project.R
View file @
33d8f084
...
...
@@ -87,7 +87,7 @@ if(MultiFlyDataVerification(xml_list)==TRUE) # make sure all flies in a group ha
#create/empty plot lists
poshistos
<-
list
()
trqhistos
<-
list
()
flyhistos
<-
list
()
flyhistos
<-
list
()
#still needed?
flyhistosR
<-
list
()
flyhistosL
<-
list
()
#vectors for pooled platform periods
...
...
@@ -95,6 +95,7 @@ if(MultiFlyDataVerification(xml_list)==TRUE) # make sure all flies in a group ha
optomotoR_flydata
<-
c
()
flyhistosL.rawdata
<-
list
()
flyhistosR.rawdata
<-
list
()
#### call RMarkdown for single fly evaluations ################################################
single_fly_path
<-
paste
(
start.wd
,
"single_fly.Rmd"
,
sep
=
"/"
)
rmarkdown
::
render
(
single_fly_path
,
...
...
@@ -224,6 +225,7 @@ flyhistos <- list() #empty list of p_position histograms
# grouped.flyhistosR[[x]] = flyhistosR #add platform histograms to list of grouped p_position histograms for right turning arena
# flyhistosR <- list()
#Position Histograms
grouped.poshistos
[[
x
]]
=
poshistos
#add torque histograms to list of grouped position histograms
poshistos
<-
list
()
#empty list of position histograms
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment