teaching/scientificComputing
Archived
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

updated populationvector project

Browse Source
This commit is contained in:
Jan Benda
2018-01-17 16:25:33 +01:00
parent 6ef0bce722
commit eca31e3c95
62 changed files with 47 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
projects/project_populationvector/solution/populationvector.m
View File

@@ -1,7 +1,9 @@
close all
files = dir('../unit*.mat');
datapath = '../';
% datapath = '../code/';
files = dir(strcat(datapath, 'unit*.mat'));
for file = files'
a = load(strcat('../', file.name));
a = load(strcat(datapath, file.name));
spikes = a.spikes;
angles = a.angles;
figure()
@@ -14,13 +16,13 @@ end
%% tuning curves:
close all
cosine = @(p,xdata)0.5*p(1).*(1.0-cos(2.0*pi*(xdata/180.0-p(2))));
files = dir('../unit*.mat');
cosine = @(p,xdata)0.5*p(1).*(1.0+cos(2.0*pi*(xdata/180.0-p(2))));
files = dir(strcat(datapath, 'unit*.mat'));
phases = zeros(length(files), 1);
figure()
for j = 1:length(files)
file = files(j);
a = load(strcat('../', file.name));
a = load(strcat(datapath, file.name));
spikes = a.spikes;
angles = a.angles;
rates = zeros(size(spikes, 1), 1);
@@ -32,10 +34,13 @@ for j = 1:length(files)
p0 = [mr, angles(maxi)/180.0-0.5];
%p = p0;
p = lsqcurvefit(cosine, p0, angles, rates');
phase = p(2)*180.0 + 90.0;
phase = p(2)*180.0;
if phase > 180.0
phase = phase - 180.0;
end
if phase < 0.0
phase = phase + 180.0;
end
phases(j) = phase;
subplot(2, 3, j);
plot(angles, rates, 'b');
@@ -49,40 +54,45 @@ end
%% read out:
a = load('../population04.mat');
a = load(strcat(datapath, 'population04.mat'));
spikes = a.spikes;
angle = a.angle;
unitphases = a.phases*180.0 + 90.0;
unitphases = a.phases*180.0;
unitphases(unitphases>180.0) = unitphases(unitphases>180.0) - 180.0;
figure();
subplot(1, 3, 1);
angleestimates1 = zeros(size(spikes, 2), 1);
angleestimates2 = zeros(size(spikes, 2), 1);
[x, inx] = sort(phases);
% loop over trials:
for j = 1:size(spikes, 2)
rates = zeros(size(spikes, 1), 1);
for k = 1:size(spikes, 1)
r = firingrate(spikes(k, j), 0.0, 0.2);
rates(k) = r;
end
[x, inx] = sort(phases);
plot(phases(inx), rates(inx), '-o');
hold on;
angleestimates1(j) = popvecangle(phases, rates);
[m, i] = max(rates);
angleestimates2(j) = phases(i);
end
xlabel('preferred angle')
ylabel('firing rate')
hold off;
subplot(1, 3, 2);
hist(angleestimates1);
xlabel('stimulus angle')
subplot(1, 3, 3);
hist(angleestimates2);
xlabel('stimulus angle')
angle
mean(angleestimates1)
mean(angleestimates2)
%% read out robustness:
files = dir('../population*.mat');
files = dir(strcat(datapath, 'population*.mat'));
angles = zeros(length(files), 1);
e1m = zeros(length(files), 1);
e1s = zeros(length(files), 1);
@@ -90,7 +100,7 @@ e2m = zeros(length(files), 1);
e2s = zeros(length(files), 1);
for i = 1:length(files)
file = files(i);
a = load(strcat('../', file.name));
a = load(strcat(datapath, file.name));
spikes = a.spikes;
angle = a.angle;
angleestimates1 = zeros(size(spikes, 2), 1);
@@ -114,5 +124,9 @@ end
figure();
subplot(1, 2, 1);
scatter(angles, e1m);
xlabel('stimuluis angle')
ylabel('estimated angle')
subplot(1, 2, 2);
scatter(angles, e2m);
xlabel('stimuluis angle')
ylabel('estimated angle')